home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / pirate.dxr / 00158_CheckChest.ls < prev    next >
Encoding:
Text File  |  1997-05-24  |  889 b   |  34 lines
  1. on checkChest
  2.   global IconCount
  3.   set i to the clickOn
  4.   if the castNum of sprite i = 514 then
  5.     if sprite i intersects 7 then
  6.       set the castNum of sprite i to 600
  7.       set the locV of sprite i to 600
  8.       updateStage()
  9.       set IconCount to IconCount - 1
  10.       go("CHEST OPEN")
  11.     end if
  12.   else
  13.     if the castNum of sprite i = 512 then
  14.       if sprite i intersects 7 then
  15.         set the castNum of sprite i to 600
  16.         set the locV of sprite i to 600
  17.         updateStage()
  18.         set IconCount to IconCount - 1
  19.         go("CHEST OPEN")
  20.       end if
  21.     else
  22.       if the castNum of sprite i = 510 then
  23.         if sprite i intersects 7 then
  24.           set the castNum of sprite i to 600
  25.           set the locV of sprite i to 600
  26.           updateStage()
  27.           set IconCount to IconCount - 1
  28.           go("CHEST OPEN")
  29.         end if
  30.       end if
  31.     end if
  32.   end if
  33. end
  34.